import Data.List
nums = [2..100]
sequ = [x^y| x <- nums, y <- nums]
main = length $ nub sequ